home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO064.dsk / ADD.START.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  45 lines
  1. 1000  REM    **************    SET UP   ***********   
  2. 1010  REM  
  3. 1020  PRINT  CHR$(4);"CLOSE": PRINT  CHR$(17): PRINT  CHR$(24)
  4. 1030  HIMEM: 38144: DIM MN(15),PM$(15,20),MS$(15)
  5. 1040  PRINT  CHR$(4);"RESTORE ADD.VAR"
  6. 1045  PRINT  CHR$(4);"PREFIX"
  7. 1046  INPUT PR$
  8. 1047  GOSUB 1200
  9. 1050  DIM A$(101),B$(101),C$(101),E$(101),D$(101),HD$(25,25)
  10. 1060  DIM A(101),B1$(101),C1$(101),D1$(101),E1$(101),A1$(101)
  11. 1070  DIM CC$(101),CD$(101),SA$(101),SB$(101),LN(25),P(15),G(15)
  12. 1075  TEXT : HOME 
  13. 1080  DIM A3$(101),B3$(101),F(50),W(20),R$(10),W$(20),CZ(15)
  14. 1090  DIM VL$(14)
  15. 1112 D$ =  CHR$(4)
  16. 1113  IF  PEEK(39400) = 13  THEN  GOTO 1120
  17. 1115  PRINT D$;"BLOAD ";PR$;"ADD.BIN1"
  18. 1120 WA$ = PR$ +"SETUP/ADD.SETUP"
  19. 1130  PRINT D$;"OPEN ";WA$
  20. 1140  PRINT D$;"READ ";WA$
  21. 1150  INPUT SL: INPUT DR: INPUT AC$: CALL 39169,A$(0): CALL 39169,B$(0): CALL 39169,C$(0): CALL 39169,CC$(0): INPUT PD$
  22. 1160  PRINT D$;"CLOSE ";WA$
  23. 1161 WA$ = ""
  24. 1190  FOR J = 0 TO 15:G(J) = 0: NEXT 
  25. 1195  GOTO 31075
  26. 1200 VP$ = ""
  27. 1210  FOR J = 2 TO  LEN(PR$)
  28. 1220  IF  MID$ (PR$,J,1) = "/"  THEN  RETURN 
  29. 1230 VP$ = VP$ + MID$ (PR$,J,1)
  30. 1240  NEXT J
  31. 2000  IF  PEEK(39400) = 13  THEN  GOTO 32000
  32. 31075 D$ =  CHR$(4)
  33. 31100  PRINT D$;"BRUN ADD.BIN2"
  34. 31110  PRINT D$;"BLOAD ADD.BIN3"
  35. 31117  PRINT D$;"BLOAD CHKDR"
  36. 32000 MACHID =  PEEK(49048)
  37. 32010  IF MACHID > = 128  THEN MACHID = MACHID -128: GOTO 32030
  38. 32020  IF MACHID > = 64  THEN MACHID = MACHID -64
  39. 32030  IF MACHID <48  THEN  POKE 39400,13: PRINT D$;"CHAIN ADD.ENTER,@32000"
  40. 32035  IF  PEEK(39400) = 13  THEN  PRINT  CHR$(4);"PREFIX /RAM"
  41. 32040  IF  PEEK(39400) = 13  THEN  PRINT  CHR$(4);"CHAIN ADD.ENTER,@42000"
  42. 32050  POKE 39400,13
  43. 32060  HOME : VTAB 10: HTAB 5: PRINT "LOADING PROGRAM INTO RAMDRIVE"
  44. 32062  VTAB 12: HTAB 14: PRINT "PLEASE WAIT":RM% = 1
  45. 32070  PRINT  CHR$(4);"CHAIN ADD.PRT,@40000"